home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / bud end (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.5 KB  |  184 lines

  1. 100 OPEN2,8,2,"0:BUDGET DATA 2,S,R"
  2. 110 FORTY=1TO192
  3. 120 INPUT#2,Y$(TY)
  4. 130 INPUT#2,Y(TY)
  5. 140 NEXTTY
  6. 150 FORTY=1TO192
  7. 160 INPUT#2,H$(TY)
  8. 170 INPUT#2,H(TY)
  9. 180 NEXTTY
  10. 190 INPUT#2,GT$
  11. 200 FORTY=1TO12
  12. 210 INPUT#2,YM$(TY)
  13. 220 INPUT#2,YM(TY)
  14. 230 NEXTTY
  15. 240 FORTY=1TO12
  16. 250 INPUT#2,HM$(TY)
  17. 260 INPUT#2,HM(TY)
  18. 270 NEXTTY
  19. 280 FORTY=1TO16
  20. 290 INPUT#2,YS$(TY)
  21. 300 INPUT#2,YS(TY)
  22. 310 NEXTTY
  23. 320 FORTY=1TO16
  24. 330 INPUT#2,HS$(TY)
  25. 340 INPUT#2,HS(TY)
  26. 350 NEXTTY:CLOSE2:A$=STR$(CM+4):AC$=RIGHT$(A$,2)
  27. 360 LA$="":LB$=" ":LC$="  ":LD$="  ":LE$="    ":PE$=" ACTUAL ":PE=1
  28. 370 LF$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":LK$="":SM$="SUB [205] MONTH"
  29. 380 ST$="SUBT":MT$="MONTHLY TOT":MI=12
  30. 390 IFAM=0THEN470
  31. 400 PRINT"[147]YOU HAVE AMENDED SOME FIGURES IN THE"
  32. 410 PRINT"PROGRAM . DO YOU WISH TO STORE THEM "
  33. 420 PRINT"(Y)ES OR (N)0 ?"
  34. 430 GETQU$:IFQU$=""THEN430
  35. 440 IFQU$="N"THENPRINT"ARE YOU SURE YOU DO NOT WANT TOO (Y/N) ?":GOTO530
  36. 450 IFQU$="Y"THEN480
  37. 460 GOTO430
  38. 470 GOTO760
  39. 480 PRINT"   PLACE'DATA'DISC IN THE DISC DRIVE"
  40. 490 PRINT"PRESS  SPACE BAR [146] TO SAVE THE DATA"
  41. 500 GETQU$:IFQU$=""THEN500
  42. 510 IFQU$<>" "THEN500
  43. 520 PRINT"[147]SAVING  BUDGET  DATA[144]":GOTO560
  44. 530 GETQU$:IFQU$="N"THEN400
  45. 540 IFQU$="Y"THEN470
  46. 550 GOTO530
  47. 560 OPEN2,8,2,"@0:BUDGET DATA,S,W"
  48. 570 PRINT#2,SR
  49. 580 PRINT#2,CM
  50. 590 FORA=1TO192
  51. 600 PRINT#2,Y$(A)
  52. 610 NEXTA:FORA=1TO192:PRINT#2,H$(A):NEXT:FORA=1TO12
  53. 620 PRINT#2,SR$(A)
  54. 630 PRINT#2,SS$(A)
  55. 640 PRINT#2,SU$(A)
  56. 650 NEXT A
  57. 660 FORB=1TO16
  58. 670 PRINT#2,BA$(B)
  59. 680 PRINT#2,BB$(B)
  60. 690 PRINT#2,BC$(B)
  61. 700 NEXT B
  62. 710 PRINT#2,GT(1)
  63. 720 PRINT#2,GT(2)
  64. 730 PRINT#2,GT(3)
  65. 740 CLOSE 2
  66. 750 PRINT"[158]":GOTO470
  67. 760 PRINT"[147]BUDGET CALC[157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163]"
  68. 770 PRINT"PRINT OUT:-":PRINT"                                    [164][164][164][164]";
  69. 780 PRINT"ACTUAL FIGURES...................... F1 [146]"
  70. 790 PRINT"                                    [164][164][164][164]";
  71. 800 PRINT"ACTUAL & ESTIMATED FIGURES.......... F3 [146]"
  72. 810 PRINT"                                    [164][164][164][164]";
  73. 820 PRINT"ESTIMATED FIGURES ONLY.............. F5 [146]"
  74. 830 PRINT"                                    [164][164][164][164]";
  75. 840 PRINT"RETURN TO THE SPREADSHEET........... F7 [146]"
  76. 850 PRINT:PRINT"                                     [164][164][164]";
  77. 860 PRINT"END BUDGET CALC...................... _ [146]"
  78. 870 PRINT"WHAT IS YOUR OPTION?"
  79. 880 GETQX$:IFQX$=""THEN880
  80. 890 IFQX$="[136]"THENPRINT"[145]              PLEASE WAIT":LO=1:LOAD"BUDGET CALC",8,1
  81. 900 FORTY=1TO192:IFVAL(Y$(TY))<>Y(TY)THENY$(TY)="000":Y(TY)=0:NEXTTY
  82. 910 FORTY=1TO192:IFVAL(H$(TY))<>H(TY)THENH$(TY)="000":H(TY)=0:NEXTTY
  83. 920 IFQX$="_"THENPRINT"[147]":GOTO1110
  84. 930 IFQX$="[133]"ORQX$="[134]"ORQX$="[135]"THEN950
  85. 940 GOTO880
  86. 950 GOTO970
  87. 960 END
  88. 970 PRINT"PLEASE SET UP PAPER FEED AND TURN ON"
  89. 980 PRINT"              THE PRINTER!"
  90. 990 FORTP=1TO2000:NEXTTP
  91. 1000 FORT=1TO2000:NEXT:PRINT"PRESS ANY KEY TO CONTINUE"
  92. 1010 GET QU$:IFQU$=""THEN1010
  93. 1020 PRINT"[145]                                     [145]"
  94. 1030 OPEN3,4:PRINT#3:IFST=-128THEN1050
  95. 1040 CLOSE3:GOTO1180
  96. 1050 CLOSE3:PRINT"[147]    B U D G E T    P R O G R A M M E"
  97. 1060 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  98. 1070 PRINT"PLEASE TURN ON THE PRINTER IF YOU WANT"
  99. 1080 PRINT"A PRINTOUT AND PRESS 'SPACE BAR'"
  100. 1090 PRINT"OR ANY OTHER TO END"
  101. 1100 GETWQ$:IFWQ$=""THEN1100
  102. 1110 PRINT"[147]    B U D G E T    P R O G R A M M E"
  103. 1120 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  104. 1130 PRINT"[164][164][164][164][164][164][164] [164][164][164][164][164]       [164]   [164]"
  105. 1140 PRINT"SYSTEMSRESET[146] ?   ( Y[146] / N[146] )"
  106. 1150 GETQA$:IFQA$=""THEN1150
  107. 1160 IFQA$="Y"THENSYS64738
  108. 1170 GOTO390
  109. 1180 IFQX$="[135]"THEN1440
  110. 1190 IFQX$="[134]"THEN1660
  111. 1200 IFQX$="[133]"THEN1210
  112. 1210 FORTY=1TO192
  113. 1220 IFY$(TY)="000"THENY$(TY)="   "
  114. 1230 NEXTTY
  115. 1240 FORZZ=1TO16:S$(ZZ)=MID$(J$(ZZ),1,13):NEXTZZ
  116. 1250 OPEN3,4:PRINT#3,CHR$(14)"    BUDGET PLAN FOR"CM+3;"/";AC$;CHR$(15);" (ACTUAL)";
  117. 1260 PRINT#3,":";CHR$(14);MZ$;CHR$(15):CMD3
  118. 1270 PRINT"[147]";SM$;"   ";M$(1);"  ";M$(2);"  ";M$(3);"  ";M$(4);"  ";M$(5);"  ";
  119. 1280 PRINTM$(6);"  ";M$(7);"  ";M$(8);"  ";M$(9);"  ";M$(10);"  "M$(11);"  ";
  120. 1290 PRINTM$(12);"   ";ST$
  121. 1300 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  122. 1310 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
  123. 1320 F=-11:FORS=1TO16:F=F+12:NB(S)=NB(S)+1
  124. 1330 PRINTS$(S);:FORSP=1TO(NB(S)+NC(S)):PRINT" ";:NEXTSP:PRINT" ";:FORPO=FTOF+11
  125. 1340 PRINTY$(PO);"  ";
  126. 1350 NEXTPO:PRINT" ";YS$(S):PRINT:NEXTS
  127. 1360 GOTO1370
  128. 1370 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  129. 1380 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
  130. 1390 PRINTMT$;LB$;:FORPO=1TO11:PRINTYM$(PO);" ";:NEXTPO:PRINTYM$(12);
  131. 1400 PRINTCHR$(14)GT$
  132. 1410 PRINTCHR$(15)
  133. 1420 PRINT#3:CLOSE3
  134. 1430 GOTO390
  135. 1440 FORTY=1TO192
  136. 1450 IFH$(TY)="000"THENH$(TY)="   "
  137. 1460 NEXTTY
  138. 1470 FORZZ=1TO16:S$(ZZ)=MID$(J$(ZZ),1,13):NEXTZZ
  139. 1480 OPEN3,4:PRINT#3,CHR$(14)"  BUDGET PLAN FOR"CM+3;"/";AC$;CHR$(15)"( ESTIMATED )";
  140. 1490 PRINT#3,CHR$(14);" :";MZ$;CHR$(15):CMD3
  141. 1500 PRINT"[147]";SM$;"   ";M$(1);"  ";M$(2);"  ";M$(3);"  ";M$(4);"  ";M$(5);"  ";
  142. 1510 PRINTM$(6);"  ";M$(7);"  ";M$(8);"  ";M$(9);"  ";M$(10);"  "M$(11);"  ";
  143. 1520 PRINTM$(12);"   ";ST$
  144. 1530 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  145. 1540 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
  146. 1550 F=-11:FORS=1TO16:F=F+12:NB(S)=NB(S)+1
  147. 1560 PRINTS$(S);:FORSP=1TO(NB(S)+NC(S)):PRINT" ";:NEXTSP:PRINTLA$;:FORPO=FTOF+11:PRINTH$(PO);"  ";
  148. 1570 NEXTPO:PRINT" ";HS$(S):PRINT:NEXTS
  149. 1580 GOTO1590
  150. 1590 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  151. 1600 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
  152. 1610 PRINTMT$;" ";LB$;:FORPO=1TO11:PRINTHM$(PO);" ";:NEXTPO:PRINTHM$(12);
  153. 1620 PRINTCHR$(14)GH$
  154. 1630 PRINTCHR$(15)
  155. 1640 PRINT#3:CLOSE3
  156. 1650 GOTO760
  157. 1660 FORTY=1TO192
  158. 1670 IFH$(TY)="000"THENH$(TY)="   "
  159. 1680 IFY$(TY)="000"THENY$(TY)="   "
  160. 1690 NEXTTY
  161. 1700 FORZZ=1TO16:S$(ZZ)=MID$(J$(ZZ),1,13):NEXTZZ
  162. 1710 OPEN3,4:PRINT#3,CHR$(14)" BUDGET PLAN FOR"CM+3;"/";AC$;CHR$(15)"  (ACTUAL/ESTI)";
  163. 1720 PRINT#3,CHR$(14);" :";MZ$;CHR$(15):CMD3
  164. 1730 PRINT"[147]";SM$;"   ";M$(1);"  ";M$(2);"  ";M$(3);"  ";M$(4);"  ";M$(5);"  ";
  165. 1740 PRINTM$(6);"  ";M$(7);"  ";M$(8);"  ";M$(9);"  ";M$(10);"  "M$(11);"  ";
  166. 1750 PRINTM$(12);"   ";ST$
  167. 1760 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  168. 1770 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
  169. 1780 F=-11:FORS=1TO16:F=F+12:NB(S)=NB(S)+1:PRINT
  170. 1790 PRINTS$(S);:FORSP=1TO(NB(S)+NC(S)):PRINT" ";:NEXTSP:PRINTLB$;:FORPO=FTOF+11:PRINTY$(PO);"  ";
  171. 1800 NEXTPO:PRINT" ";YS$(S)
  172. 1810 PRINT"              ";:FORRO=FTOF+11:PRINTH$(RO);"  ";:NEXTRO:PRINT" ";HS$(S):NEXTS
  173. 1820 GOTO1830
  174. 1830 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  175. 1840 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
  176. 1850 PRINTMT$;" ";LB$;:FORPO=1TO11:PRINTYM$(PO);" ";:NEXTPO:PRINTYM$(12);
  177. 1860 PRINTCHR$(14)GT$
  178. 1870 PRINTCHR$(15)
  179. 1880 PRINT"            ";LB$;:FORPO=1TO11:PRINTHM$(PO);" ";:NEXTPO:PRINTHM$(12);
  180. 1890 PRINTCHR$(14)GH$
  181. 1900 PRINTCHR$(15)
  182. 1910 PRINT#3:CLOSE3
  183. 1920 GOTO760
  184.